home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
dbms_mag
/
9101
/
desq1.jan
< prev
next >
Wrap
Text File
|
1990-11-01
|
988b
|
42 lines
Listing 1.
* Capture the handles automatically assigned
winhan = WIN_me() &&window
keyhan = KEY_me() &&keyboard
malhan = MAL_me() &&mailbox
* Other objects must be explicitly created
ptrhan = PTR_new()
*Creating child windows:
rows = 10
cols = 5
winchild = WIN_new("Title of child window", rows, cols )
*Opening additional mailboxes
mal2winhan = MAL_new()
mal3winhan = MAL_new()
IF Mal2Winhan = 0 .OR. Mal3Winhan
Error("Mailbox not allocated")
ENDIF
*Some objects should be opened before using them
* Attach pointer object (mouse) to parent window
PTR_open(ptrhan, winhan)
* Attach keyboard object) to parent window
KEY_open(keyhan, winhan)
* Open Non-default mailboxes
IF MAL_open(mal2winhan) <> mal2winhan
Error("Couldn't open 2nd mail handle")
ENDIF
IF MAL_open(mal3winhan) <> mal3winhan
Error("Couldn't open 3rd mail handle")
ENDIF